home *** CD-ROM | disk | FTP | other *** search
/ NetNews Offline 2 / NetNews Offline Volume 2.iso / news / comp / sys / amiga / applications / 1899 < prev    next >
Encoding:
Internet Message Format  |  1996-08-05  |  1.5 KB
  1. Path: news.delphi.com!usenet
  2. From: Stanley Anderson <anderson4@delphi.com>
  3. Newsgroups: comp.sys.amiga.applications
  4. Subject: FW Envelope macro
  5. Date: Sun, 11 Feb 96 23:22:23 -0500
  6. Organization: Delphi (info@delphi.com email, 800-695-4005 voice)
  7. Message-ID: <BdNKBV3.anderson4@delphi.com>
  8. NNTP-Posting-Host: bos1g.delphi.com
  9.  
  10. There was an earlier request for an v envelope macro which worked;
  11. this one does for me.  Just select the address with the mouse, then
  12. invoke the macro (I assigned it to a button so it's only a click away)
  13. rz
  14. B00000000000000
  15.  
  16.  
  17.  
  18. Options Results
  19. Status PortName
  20. OriginalHost = Result
  21. NR = Right(OriginalHost,1)
  22.  
  23. NEWNR = NR + 1
  24. NEWHOST = Left(OriginalHost,7)||NEWNR
  25. Address VALUE OriginalHost
  26.  
  27. Copy
  28. New
  29.  
  30. Address Command
  31. do for 3 while ~show('P',NEWHOST)
  32.  
  33.      'WAITFORPORT' NEWHOST
  34.      end
  35.  
  36. Address VALUE NEWHOST
  37.  
  38. PAGESETUP Pagetype Custom Width 11.0 HEIGHT 9.00
  39. PAGESETUP Orient Wide
  40. SECTIONSETUP name main
  41. SECTIONSETUP columns 2 columngap .50
  42. SECTIONSETUP header 0 footer 0
  43. SECTIONSETUP TOP 1.50
  44. SECTIONSETUP BOTTOM 1.50
  45. SECTIONSETUP INSIDE 1.50
  46. SECTIONSETUP OUTSIDE 1.50
  47. FONT 'WORK:FINALWRITER/FWFonts/SWOLFONTS/SERIF/Thames_bold'
  48. FONTSIZE 14
  49. TYPE 'Stanley L. Anderson'
  50. NewParagraph
  51. FONT 'WORK:FINALWRITER/FWFonts/SWOLFONTS/SERIF/Thames'
  52. Fontsize 12
  53. TYPE 'Attorney at Law'
  54. NewParagraph
  55. TYPE '603 W. Main St.'
  56. NewParagraph
  57. TYPE 'Tishomingo, OK 73460'
  58. Do for 33
  59.      Newparagraph
  60.      end
  61. Paste
  62. Print
  63. Close Force
  64.  
  65. This works for me with my Deskjet500 printer.
  66.  
  67. Stan Anderson
  68.